home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / vbmsngr.exe / EDITBOX.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-05-28  |  2.7 KB  |  79 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Edit Box Demo"
  4.    Height          =   4305
  5.    Left            =   5280
  6.    LinkTopic       =   "Form1"
  7.    ScaleHeight     =   3900
  8.    ScaleWidth      =   5355
  9.    Top             =   3120
  10.    Width           =   5475
  11.    Begin PictureBox Picture1 
  12.       AutoSize        =   -1  'True
  13.       BorderStyle     =   0  'None
  14.       Height          =   720
  15.       Left            =   3810
  16.       Picture         =   EDITBOX.FRX:0000
  17.       ScaleHeight     =   720
  18.       ScaleWidth      =   720
  19.       TabIndex        =   4
  20.       Top             =   300
  21.       Visible         =   0   'False
  22.       Width           =   720
  23.    End
  24.    Begin VBMsg VBMsg1 
  25.       Height          =   420
  26.       Left            =   4350
  27.       MessageCount    =   EDITBOX.FRX:04FA
  28.       MessageList     =   EDITBOX.FRX:04FC
  29.       MessageTypes    =   0  'Selected Messages
  30.       Top             =   3120
  31.       Width           =   420
  32.    End
  33.    Begin CommandButton Command1 
  34.       Caption         =   "Done"
  35.       Height          =   405
  36.       Left            =   2160
  37.       TabIndex        =   0
  38.       Top             =   3210
  39.       Width           =   1125
  40.    End
  41.    Begin TextBox Text1 
  42.       Height          =   435
  43.       Left            =   1890
  44.       TabIndex        =   1
  45.       Text            =   "Click Me!"
  46.       Top             =   1020
  47.       Width           =   2115
  48.    End
  49.    Begin Label Label2 
  50.       Caption         =   "This sample application shows you how to detect when the user clicks the right mouse button on an text box.  This is useful if you want to display help on particular controls that do not give you a Click event.  Click your right mouse button on the text box above and see."
  51.       Height          =   1125
  52.       Left            =   180
  53.       TabIndex        =   3
  54.       Top             =   1710
  55.       Width           =   4755
  56.    End
  57.    Begin Label Label1 
  58.       AutoSize        =   -1  'True
  59.       Caption         =   "Text Box ->"
  60.       Height          =   195
  61.       Left            =   660
  62.       TabIndex        =   2
  63.       Top             =   1110
  64.       Width           =   990
  65.    End
  66. Option Explicit
  67. Declare Function GetDesktopHwnd Lib "User" () As Integer
  68. Sub Command1_Click ()
  69.     End
  70. End Sub
  71. Sub Form_Load ()
  72.     Dim rc As Long
  73.     VBMsg1.SubClasshWnd = Text1.hWnd
  74. End Sub
  75. Sub VBMsg1_WindowMessage (hWindow As Integer, Msg As Integer, wParam As Integer, lParam As Long, RetVal As Long, CallDefProc As Integer)
  76.     Picture1.Visible = (Msg = VBMsg1.MessageList(0))    'True  = WM_RBUTTONDOWN
  77.                                                         'False = WM_RBUTTONUP
  78. End Sub
  79.